extern doublereal dpmpar_(integer *i__);
